2018-12-26

library(readr); library(dplyr); library(stringr); library(lubridate)

install.packages("plotly")

plasticContainer <- list(
  greenBox=c("paper","scissor"),     # location 1
  redBox=c(1L,3L,2.5),               # location 2
  blueBox=c(TRUE,FALSE,TRUE,TRUE)    # location 3
)

download.file("https://github.com/tpemartin/github-data/blob/master/plotly_4070_neda.Rda?raw=true",destfile = "plotly_4070_neda.Rda")

嘗試 URL 'https://github.com/tpemartin/github-data/blob/master/plotly_4070_neda.Rda?raw=true'
Content type 'application/octet-stream' length 12400 bytes (12 KB)
==================================================
downloaded 12 KB

load("plotly_4070_neda.Rda")
library(plotly)

Loading required package: ggplot2

Attaching package: ‘plotly’

The following object is masked from ‘package:ggplot2’:

    last_plot

The following object is masked from ‘package:stats’:

    filter

The following object is masked from ‘package:graphics’:

    layout

plotly_4070_neda

plasticContainer[c("greenBox")] # or plasticContainer[c(1,2)]

$greenBox
[1] "paper"   "scissor"

plasticContainer["greenBox"] # or plasticContainer[c(1,2)]

$greenBox
[1] "paper"   "scissor"

plasticContainer[["greenBox"]] # or plasticContainer[[1]]

[1] "paper"   "scissor"

plasticContainer["greenBox"][[1]][1]

[1] "paper"

plasticContainer[["greenBox"]][1]

[1] "paper"

plotly_4070_neda$x$layout$shapes[[1]]$opacity<-0.8
plotly_4070_neda

library(readr)
transcriptData <- read_csv("https://raw.githubusercontent.com/tpemartin/github-data/master/transcript100_102.csv",
                  col_types = cols(
                    學期成績="n"
                  ))
totalCredits<-function(x){
  transcriptData[transcriptData$學號==x,]->subsample 
  subsample %>%
    mutate(
      及格=(學期成績>=60)
    ) %>%
    summarise(
      學號=學號[1],
      總修習學分數=sum(學分數),
      總實得學分數=sum(學分數[及格])
    )  
}

transcriptData %>%
  filter(學屆==100,str_sub(學號,5,6)=="P1") -> subsample
subsample$學號 %>% unique -> 符合條件學號

transcriptData->subsample
subsample %>%unique->符合條件學號

seq_along(符合條件學號)

creditResults<-vector("list",length(符合條件學號))

for(i in seq_along(符合條件學號)){
  creditResults[[i]] <- totalCredits(符合條件學號[i])
}

creditResults[[200]]